home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_A.d64 / spriteb. v3 demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  143 lines
  1. 10 rem ********************************
  2. 20 rem *                              *
  3. 30 rem *    spritebasic v3.0 demo     *
  4. 40 rem *    ---------------------     *
  5. 50 rem *    written by ph. herzog     *
  6. 60 rem *                              *
  7. 70 rem ********************************
  8. 80 :
  9. 90 _x:_\:__"........":rem reset            +hyperscreen on
  10. 100 _r,13:rem g-zeiger auf block 13
  11. 110 _g"........*****..........."
  12. 120 _g"........*****..........."
  13. 130 _g".........***............"
  14. 140 _g".........***............"
  15. 150 _g"..........*............."
  16. 160 _g"..........*............."
  17. 170 _g"....*************......."
  18. 180 _g".....***********........"
  19. 190 _g"......*********........."
  20. 200 _g".......*******.........."
  21. 210 _g".......*******.........."
  22. 220 _g".......*******.........."
  23. 230 _g".......*******.........."
  24. 240 _g".......*******.........."
  25. 250 _g".......*******.........."
  26. 260 _g".......*******.........."
  27. 270 _g".......*******.........."
  28. 280 _g"........*****..........."
  29. 290 _g"........*****..........."
  30. 300 _g".........***............"
  31. 310 _g"..........*............."
  32. 320 :
  33. 330 rem g-zeiger springt automatisch auf 14
  34. 340 :
  35. 350 _t"............"
  36. 360 _t"............"
  37. 370 _t"............"
  38. 380 _t"............"
  39. 390 _t"............"
  40. 400 _t".....aa....."
  41. 410 _t".....aa....."
  42. 420 _t"....bbbb...."
  43. 430 _t"..bbbbbbbb.."
  44. 440 _t"caaacccaaacc"
  45. 450 _t"aaacccaaaccc"
  46. 460 _t"..bbbbbbbb.."
  47. 470 _t"....bbbb...."
  48. 480 _t".....bb....."
  49. 490 _t"............"
  50. 500 _t"............"
  51. 510 _t"............"
  52. 520 _t"............"
  53. 530 _t"............"
  54. 540 _t"............"
  55. 550 _t"            "
  56. 560 :
  57. 570 _t"............"
  58. 580 _t"............"
  59. 590 _t"............"
  60. 600 _t"............"
  61. 610 _t"............"
  62. 620 _t"..bbbaabbb.."
  63. 630 _t".bbaaaaaabb."
  64. 640 _t"bbaaaaaaaabb"
  65. 650 _t"baaaaaaaaaab"
  66. 660 _t"bbaaaaaaaabb"
  67. 670 _t"bbbbbaabbbbb"
  68. 680 _t".bb.baab.bb."
  69. 690 _t"....baabb..."
  70. 700 _t"...bbaab...."
  71. 710 _t"....baab...."
  72. 720 _t"....baabb..."
  73. 730 _t"...bbaab...."
  74. 740 _t"....baab...."
  75. 750 _t"....baabb..."
  76. 760 _t"...bbaab...."
  77. 770 _t"....baab...."
  78. 780 :
  79. 790 rem kollisionsdemo
  80. 800 :
  81. 810 _u,1,0:_c,0,0:_c,1,12:_m,1:rem farben + multicolor setzen
  82. 820 _ex,1:rem expand
  83. 830 _i,0,13:_i,1,14:rem spritepointer auf block setzen
  84. 840 _p,1,0,200:_p,0,170,0:rem sprites setzen
  85. 850 _n,0:_n,1:rem einschalten
  86. 860 _w,1,1,0,0,0
  87. 870 print"[147]joystick port 2 zur steuerung der bombe benutzen"
  88. 880 print" f1 [146] to exit"
  89. 890 _w,0,usr(16+2*1+0),2,0,0:rem joystick im w-befehl
  90. 900 ifpeek(203)=4then1000
  91. 910 ifusr(1)=0then890:rem kollision?
  92. 920 _w,0,1,2,3,0
  93. 930 print"[147]";:forx=0to63
  94. 940 poke646,x:print"boom!
  95. 950 [130]:[153]"load":[139][183](1)[178]1[167]930
  96. 960 [137]870
  97. 970 :
  98. 980 [143] _a/_j und positionsabnbfragedemo
  99. 990 :
  100. 1000 _a:[143] interrupt aus
  101. 1010 [153]"load_a/_j und positionsabfrage-demo"
  102. 1020 _p,0,13,13
  103. 1030 _p,1,0,0:_@
  104. 1040 _w,0,1,1,0,1:_w,1,1,1,0,1
  105. 1050 _j:[143] interrupt wieder an
  106. 1060 [153]"druecke eine taste um die rakete        fallenzulassen!"
  107. 1070 [151]198,0:[146]198,1:[151]198,0:_w,0,0,2,0,0
  108. 1080 [139][183](257)[179]229[167]1080
  109. 1090 _i,0,15:_m,0:_c,0,2:_w,0,0,0,0,0
  110. 1100 _p,0,[183](256),207:_ey,0
  111. 1110 [129]x[178]0[164]10:_n,0:[129]y[178]0[164]50:[130]:_f,0:[129]y[178]0[164]50:[130]y,x
  112. 1120 [139][183](258)[179]400[167]1120
  113. 1130 _i,0,13:_h,0:_c,0,0:_n,0
  114. 1140 _a:_r,13:_k:_r,14:_k:_p,0,13,0:_p,1,0,13:_w,0,1,1,0,1:_j:_dy,0
  115. 1150 [153]"jetzt steht alles kopf!"
  116. 1160 [153]"weiter mit space"
  117. 1170 [146]203,60
  118. 1180 [153]"load_z-demo"
  119. 1190 _f,1:_p,0,50,230:_r,13
  120. 1200 _w,0,0,255,0,1
  121. 1210 [139][183](257)[177]180[167]1210
  122. 1220 _w,0,0,255,0,0
  123. 1230 [139][183](257)[177]80[167]1230
  124. 1240 _z:_w,0,1,0,0,0
  125. 1250 [139][183](256)[179]300[167]1250
  126. 1260 _z:_w,0,0,1,0,0
  127. 1270 [139][183](257)[179]200[167]1270
  128. 1280 _z:_w,0,255,0,0,0
  129. 1290 [139][183](256)[179]500[167]1290
  130. 1300 :
  131. 1310 [143] sprungdemo
  132. 1320 :
  133. 1330 _x
  134. 1340 _n,0
  135. 1350 _i,0,13
  136. 1360 [153]"loadmit _l,13,255 machen wir einen kasten"
  137. 1370 _l,13,255:_c,0,1:_i,0,13:_p,0,24,58
  138. 1380 [153]"mit _w,0,20,0,20,0 lassen wir ihn       springen"
  139. 1390 _w,0,20,0,20,0
  140. 1400 [153]"druecke spacewait fuer ende":[151]198,0
  141. 1410 [161]a$:[139]a$[179][177]" "[137]1410
  142. 1420 _x
  143.